home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
FROMUTS
/
RISCBBS
/
!RiscBBS
/
Menus
/
Msgbase
/
PrivMail
< prev
next >
Wrap
Text File
|
1992-02-24
|
1KB
|
62 lines
{
report `Reading private mail`
defopt F= `Forward` 10 ``
m_read `1 A0 U`
if RET
menu Msgbase.Main
endif
endopt
defopt B= `Backward` 10 ``
m_read `-1 A0 U`
if RET
menu Msgbase.Main
endif
endopt
defopt C= `Current` 10 ``
m_read `0 A0 U`
if RET
menu Msgbase.Main
endif
endopt
defopt S= `Start of area` 10 ``
m_read `1 A0 RB U`
if RET
menu Msgbase.Main
endif
endopt
defopt E= `End of area` 10 ``
m_read `-1 A0 RE U`
if RET
menu Msgbase.Main
endif
endopt
defopt ¤= `Next` 10 ``
m_read `0 A0 I`
if RET
menu Msgbase.Main
endif
endopt
defopt R= `Reply` 10 ``
m_enter `R A0 P`
endopt
defopt K= `Kill` 10 ``
m_kill
endopt
defopt A= `Abort` 10 ``
menu Msgbase.Main
endopt
attr 0 6
}
Private mail: {fg 7}[{fg 1}F{fg 7}]orward [{fg 1}B{fg 7}]ackward [{fg 1}C{fg 7}]urrent [{fg 1}R{fg 7}]eply
{fg 7}[{fg 1}K{fg 7}]ill [{fg 1}S{fg 7}]tart of area [{fg 1}E{fg 7}]nd of area [{fg 1}A{fg 7}]bort : {fg 1 eof}